by David Wilson (Willow Seven) (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 29th February 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This is a simple setup program that makes a directory on your c:\ drive called 'Willow Seven' then copys the application that is currently
API Declarations
On your form make a command button- Command1
You can jazz it up by puttong your companies anme on or even your name.
VBcoders
Public ProgramName As String
Private Sub form_load()
LblMain.Caption = "This program will install the files needed on your computer to run your application. Click next to continue..."
Command1.Caption = "Next..."
Me.Caption = "Setup..."
End Sub
Private Sub Command1_Click()
ProgramName = "Program Name"
If Jimbo = 3 Then
Unload Me: End
Else
Jimbo = Jimbo + 1
Select Case Jimbo
Case 1
LblMain.Caption = "This Setup will install " & ProgramName & ".exe and other components. Please click next to continue."
Case 2
Make_Directories
LblMain.Caption = "Click Next to copy the files into the directory 'C:\WillowSeven'"
Copy_Files
EditReg
Case 3
LblMain.Caption = "Setup Complete!": MsgBox "Complete!", , "": Command1.Caption = "Done"
End Select
End If
End Sub
Private Sub EditReg()
'This inserts files into the registry. e.g.
End Sub
Private Sub Copy_Files()
'This is where you put all the file copying Material
ChDir App.Path
FileCopy App.EXEName & ".exe", "C:\Willow seven\Program\" & ProgramName & ".exe"
End Sub
Private Sub Make_Directories()
On Error Resume Next
MkDir "C:\Willow Seven"
MkDir "C:\Willow Seven\Setup"
MkDir "C:\Willow Seven\Dll's"
MkDir "C:\Willow Seven\Ocx's"
MkDir "C:\Willow Seven\Program"
End Sub
No comments have been posted about This is a simple setup program that makes a directory on your c:\ drive called 'Willow Seven' then . Why not be the first to post a comment about This is a simple setup program that makes a directory on your c:\ drive called 'Willow Seven' then .
